home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_69799.txt < prev    next >
Text File  |  1990-08-14  |  15KB  |  759 lines
  1. -- card: 69799 from stack: in
  2. -- bmap block id: 96368
  3. -- flags: 4000
  4. -- background id: 19276
  5. -- name: Custom Templates…
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonNumber
  9.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  10.   set hilite of background button buttonNumber to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global buttonNumber
  15.   set hilite of background button buttonNumber to true
  16.   set hilite of card button id 6 to true
  17.   set hilite of card button id 7 to false
  18.   repeat with index = 9 to 17
  19.     set hilite of card button id index to false
  20.   end repeat
  21.   repeat with index = 19 to 32
  22.     set hilite of card button id index to false
  23.   end repeat
  24. end closeCard
  25.  
  26.  
  27. -- part 1 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=0 top=0 right=342 bottom=512
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: 
  39.  
  40.  
  41. -- part 2 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=49 top=248 right=266 bottom=117
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: OK
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   lock screen
  56.   go to card "Templates" of this background
  57.   unlock screen
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 3 (button)
  63. -- low flags: 00
  64. -- high flags: 2000
  65. -- rect: left=136 top=248 right=266 bottom=204
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Cancel
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   lock screen
  77.   pop card
  78.   unlock screen
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 4 (button)
  84. -- low flags: 00
  85. -- high flags: 2000
  86. -- rect: left=221 top=248 right=266 bottom=319
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Comments…
  95.  
  96.  
  97. -- part 5 (button)
  98. -- low flags: 00
  99. -- high flags: 2000
  100. -- rect: left=336 top=248 right=266 bottom=467
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Points & Credits…
  109.  
  110.  
  111. -- part 6 (button)
  112. -- low flags: 00
  113. -- high flags: C006
  114. -- rect: left=42 top=170 right=186 bottom=130
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: All Items
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   set hilite of card button "Selected Items" to false
  126.   set hilite of me to true
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 7 (button)
  132. -- low flags: 00
  133. -- high flags: 8006
  134. -- rect: left=42 top=190 right=206 bottom=168
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Selected Items
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   set hilite of card button "All Items" to false
  146.   set hilite of me to true
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 8 (button)
  152. -- low flags: 00
  153. -- high flags: A001
  154. -- rect: left=223 top=171 right=184 bottom=256
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 3
  159. -- text size: 9
  160. -- style flags: 0
  161. -- line height: 12
  162. -- part name: Revert
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   repeat with index = 9 to 17
  166.     set hilite of button id index to false
  167.   end repeat
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 9 (button)
  173. -- low flags: 00
  174. -- high flags: 8001
  175. -- rect: left=259 top=171 right=184 bottom=271
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 3
  180. -- text size: 9
  181. -- style flags: 0
  182. -- line height: 12
  183. -- part name: M
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   if icon of me is 0 then set hilite of me to not hilite of me
  187.   else beep
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 10 (button)
  193. -- low flags: 00
  194. -- high flags: 8001
  195. -- rect: left=274 top=171 right=184 bottom=286
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 3
  200. -- text size: 9
  201. -- style flags: 0
  202. -- line height: 12
  203. -- part name: 1
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   if icon of me is 0 then set hilite of me to not hilite of me
  207.   else beep
  208. end mouseUp
  209.  
  210.  
  211.  
  212. -- part 11 (button)
  213. -- low flags: 00
  214. -- high flags: 8001
  215. -- rect: left=289 top=171 right=184 bottom=301
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 1
  219. -- font id: 3
  220. -- text size: 9
  221. -- style flags: 0
  222. -- line height: 12
  223. -- part name: 2
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   if icon of me is 0 then set hilite of me to not hilite of me
  227.   else beep
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 12 (button)
  233. -- low flags: 00
  234. -- high flags: 8001
  235. -- rect: left=304 top=171 right=184 bottom=316
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 3
  240. -- text size: 9
  241. -- style flags: 0
  242. -- line height: 12
  243. -- part name: 3
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   if icon of me is 0 then set hilite of me to not hilite of me
  247.   else beep
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 13 (button)
  253. -- low flags: 00
  254. -- high flags: 8001
  255. -- rect: left=319 top=171 right=184 bottom=331
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 3
  260. -- text size: 9
  261. -- style flags: 0
  262. -- line height: 12
  263. -- part name: 4
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   if icon of me is 0 then set hilite of me to not hilite of me
  267.   else beep
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 14 (button)
  273. -- low flags: 00
  274. -- high flags: 8001
  275. -- rect: left=334 top=171 right=184 bottom=346
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 3
  280. -- text size: 9
  281. -- style flags: 0
  282. -- line height: 12
  283. -- part name: 5
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   if icon of me is 0 then set hilite of me to not hilite of me
  287.   else beep
  288. end mouseUp
  289.  
  290.  
  291.  
  292. -- part 15 (button)
  293. -- low flags: 00
  294. -- high flags: 8001
  295. -- rect: left=349 top=171 right=184 bottom=361
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 3
  300. -- text size: 9
  301. -- style flags: 0
  302. -- line height: 12
  303. -- part name: 6
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   if icon of me is 0 then set hilite of me to not hilite of me
  307.   else beep
  308. end mouseUp
  309.  
  310.  
  311.  
  312. -- part 16 (button)
  313. -- low flags: 00
  314. -- high flags: 8001
  315. -- rect: left=364 top=171 right=184 bottom=376
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 1
  319. -- font id: 3
  320. -- text size: 9
  321. -- style flags: 0
  322. -- line height: 12
  323. -- part name: 7
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   if icon of me is 0 then set hilite of me to not hilite of me
  327.   else beep
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 17 (button)
  333. -- low flags: 00
  334. -- high flags: 8001
  335. -- rect: left=379 top=171 right=184 bottom=391
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 3
  340. -- text size: 9
  341. -- style flags: 0
  342. -- line height: 12
  343. -- part name: 8
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   if icon of me is 0 then set hilite of me to not hilite of me
  347.   else beep
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 18 (button)
  353. -- low flags: 00
  354. -- high flags: A000
  355. -- rect: left=223 top=215 right=228 bottom=256
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 3
  360. -- text size: 9
  361. -- style flags: 0
  362. -- line height: 12
  363. -- part name: Revert
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   repeat with index = 19 to 32
  367.     set hilite of button id index to false
  368.   end repeat
  369. end mouseUp
  370.  
  371.  
  372.  
  373. -- part 19 (button)
  374. -- low flags: 00
  375. -- high flags: 8001
  376. -- rect: left=259 top=215 right=228 bottom=271
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 5070 / 5070
  379. -- text alignment: 1
  380. -- font id: 3
  381. -- text size: 9
  382. -- style flags: 0
  383. -- line height: 12
  384. -- part name: K
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   if icon of me is 0 then set hilite of me to not hilite of me
  388.   else beep
  389. end mouseUp
  390.  
  391.  
  392.  
  393. -- part 20 (button)
  394. -- low flags: 00
  395. -- high flags: 8001
  396. -- rect: left=274 top=215 right=228 bottom=286
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 5070 / 5070
  399. -- text alignment: 1
  400. -- font id: 3
  401. -- text size: 9
  402. -- style flags: 0
  403. -- line height: 12
  404. -- part name: 1
  405. ----- HyperTalk script -----
  406. on mouseUp
  407.   if icon of me is 0 then set hilite of me to not hilite of me
  408.   else beep
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 21 (button)
  414. -- low flags: 00
  415. -- high flags: 8001
  416. -- rect: left=289 top=215 right=228 bottom=301
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 5070 / 5070
  419. -- text alignment: 1
  420. -- font id: 3
  421. -- text size: 9
  422. -- style flags: 0
  423. -- line height: 12
  424. -- part name: 2
  425. ----- HyperTalk script -----
  426. on mouseUp
  427.   if icon of me is 0 then set hilite of me to not hilite of me
  428.   else beep
  429. end mouseUp
  430.  
  431.  
  432.  
  433. -- part 22 (button)
  434. -- low flags: 00
  435. -- high flags: 8001
  436. -- rect: left=304 top=215 right=228 bottom=316
  437. -- title width / last selected line: 0
  438. -- icon id / first selected line: 5070 / 5070
  439. -- text alignment: 1
  440. -- font id: 3
  441. -- text size: 9
  442. -- style flags: 0
  443. -- line height: 12
  444. -- part name: 3
  445. ----- HyperTalk script -----
  446. on mouseUp
  447.   if icon of me is 0 then set hilite of me to not hilite of me
  448.   else beep
  449. end mouseUp
  450.  
  451.  
  452.  
  453. -- part 23 (button)
  454. -- low flags: 00
  455. -- high flags: 8001
  456. -- rect: left=319 top=215 right=228 bottom=331
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 5070 / 5070
  459. -- text alignment: 1
  460. -- font id: 3
  461. -- text size: 9
  462. -- style flags: 0
  463. -- line height: 12
  464. -- part name: 4
  465. ----- HyperTalk script -----
  466. on mouseUp
  467.   if icon of me is 0 then set hilite of me to not hilite of me
  468.   else beep
  469. end mouseUp
  470.  
  471.  
  472.  
  473. -- part 24 (button)
  474. -- low flags: 00
  475. -- high flags: 8001
  476. -- rect: left=334 top=215 right=228 bottom=346
  477. -- title width / last selected line: 0
  478. -- icon id / first selected line: 5070 / 5070
  479. -- text alignment: 1
  480. -- font id: 3
  481. -- text size: 9
  482. -- style flags: 0
  483. -- line height: 12
  484. -- part name: 5
  485. ----- HyperTalk script -----
  486. on mouseUp
  487.   if icon of me is 0 then set hilite of me to not hilite of me
  488.   else beep
  489. end mouseUp
  490.  
  491.  
  492.  
  493. -- part 25 (button)
  494. -- low flags: 00
  495. -- high flags: 8001
  496. -- rect: left=349 top=215 right=228 bottom=361
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 5070 / 5070
  499. -- text alignment: 1
  500. -- font id: 3
  501. -- text size: 9
  502. -- style flags: 0
  503. -- line height: 12
  504. -- part name: 6
  505. ----- HyperTalk script -----
  506. on mouseUp
  507.   if icon of me is 0 then set hilite of me to not hilite of me
  508.   else beep
  509. end mouseUp
  510.  
  511.  
  512.  
  513. -- part 26 (button)
  514. -- low flags: 00
  515. -- high flags: 8001
  516. -- rect: left=364 top=215 right=228 bottom=376
  517. -- title width / last selected line: 0
  518. -- icon id / first selected line: 5070 / 5070
  519. -- text alignment: 1
  520. -- font id: 3
  521. -- text size: 9
  522. -- style flags: 0
  523. -- line height: 12
  524. -- part name: 7
  525. ----- HyperTalk script -----
  526. on mouseUp
  527.   if icon of me is 0 then set hilite of me to not hilite of me
  528.   else beep
  529. end mouseUp
  530.  
  531.  
  532.  
  533. -- part 27 (button)
  534. -- low flags: 00
  535. -- high flags: 8001
  536. -- rect: left=379 top=215 right=228 bottom=391
  537. -- title width / last selected line: 0
  538. -- icon id / first selected line: 5070 / 5070
  539. -- text alignment: 1
  540. -- font id: 3
  541. -- text size: 9
  542. -- style flags: 0
  543. -- line height: 12
  544. -- part name: 8
  545. ----- HyperTalk script -----
  546. on mouseUp
  547.   if icon of me is 0 then set hilite of me to not hilite of me
  548.   else beep
  549. end mouseUp
  550.  
  551.  
  552.  
  553. -- part 28 (button)
  554. -- low flags: 00
  555. -- high flags: 8001
  556. -- rect: left=394 top=215 right=228 bottom=406
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 5070 / 5070
  559. -- text alignment: 1
  560. -- font id: 3
  561. -- text size: 9
  562. -- style flags: 0
  563. -- line height: 12
  564. -- part name: 9
  565. ----- HyperTalk script -----
  566. on mouseUp
  567.   if icon of me is 0 then set hilite of me to not hilite of me
  568.   else beep
  569. end mouseUp
  570.  
  571.  
  572.  
  573. -- part 29 (button)
  574. -- low flags: 00
  575. -- high flags: 8001
  576. -- rect: left=409 top=215 right=228 bottom=421
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 5070 / 5070
  579. -- text alignment: 1
  580. -- font id: 3
  581. -- text size: 9
  582. -- style flags: 0
  583. -- line height: 12
  584. -- part name: 10
  585. ----- HyperTalk script -----
  586. on mouseUp
  587.   if icon of me is 0 then set hilite of me to not hilite of me
  588.   else beep
  589. end mouseUp
  590.  
  591.  
  592.  
  593. -- part 30 (button)
  594. -- low flags: 00
  595. -- high flags: 8001
  596. -- rect: left=424 top=215 right=228 bottom=436
  597. -- title width / last selected line: 0
  598. -- icon id / first selected line: 0 / 0
  599. -- text alignment: 1
  600. -- font id: 3
  601. -- text size: 9
  602. -- style flags: 0
  603. -- line height: 12
  604. -- part name: 11
  605. ----- HyperTalk script -----
  606. on mouseUp
  607.   if icon of me is 0 then set hilite of me to not hilite of me
  608.   else beep
  609. end mouseUp
  610.  
  611.  
  612.  
  613. -- part 31 (button)
  614. -- low flags: 00
  615. -- high flags: 8001
  616. -- rect: left=439 top=215 right=228 bottom=451
  617. -- title width / last selected line: 0
  618. -- icon id / first selected line: 0 / 0
  619. -- text alignment: 1
  620. -- font id: 3
  621. -- text size: 9
  622. -- style flags: 0
  623. -- line height: 12
  624. -- part name: 12
  625. ----- HyperTalk script -----
  626. on mouseUp
  627.   if icon of me is 0 then set hilite of me to not hilite of me
  628.   else beep
  629. end mouseUp
  630.  
  631.  
  632.  
  633. -- part 32 (button)
  634. -- low flags: 00
  635. -- high flags: 8001
  636. -- rect: left=454 top=215 right=228 bottom=466
  637. -- title width / last selected line: 0
  638. -- icon id / first selected line: 5070 / 5070
  639. -- text alignment: 1
  640. -- font id: 3
  641. -- text size: 9
  642. -- style flags: 0
  643. -- line height: 12
  644. -- part name: 13
  645. ----- HyperTalk script -----
  646. on mouseUp
  647.   if icon of me is 0 then set hilite of me to not hilite of me
  648.   else beep
  649. end mouseUp
  650.  
  651.  
  652.  
  653. -- part contents for background part 1
  654. ----- text -----
  655. 99 Students
  656.  
  657. -- part contents for background part 3
  658. ----- text -----
  659. 47
  660. 80
  661. 53
  662. 54
  663. 52
  664. 102
  665. 48
  666. 13
  667. 94
  668. 93
  669. 103
  670. 104
  671. 44
  672.  
  673.  
  674.  
  675.  
  676.  
  677. -- part contents for background part 4
  678. ----- text -----
  679. Abrosimoff, Michael John
  680. Adams, Bryan
  681. Alexander, Rick
  682. Alexander, Susan
  683. Allsop, Blair M.
  684. Azimov, Isaac
  685. Barisoff, Larissa
  686. Bunyan, Paul
  687. Burnyeat, Grant
  688. Caldwell, Brian
  689. Chalk, Patricia
  690. Collins, Bob
  691. Conkin, Elizabeth
  692.  
  693. -- part contents for background part 5
  694. ----- text -----
  695. 112
  696. 112
  697. 112
  698. 112
  699. 112
  700. N/A
  701. 112
  702. 112
  703. 112
  704. 112
  705. N/A
  706. N/A
  707. 112
  708.  
  709. -- part contents for background part 6
  710. ----- text -----
  711. 12
  712. 12
  713. 12
  714. 12
  715. 12
  716. 11
  717. 12
  718. 12
  719. 12
  720. 12
  721. 11
  722. 11
  723. 12
  724.  
  725. -- part contents for background part 7
  726. ----- text -----
  727. 0.000
  728. 0.000
  729. 0.000
  730. 0.000
  731. 0.000
  732. 1.000
  733. 0.000
  734. 0.000
  735. 0.000
  736. 0.000
  737. 0.000
  738. 0.000
  739. 0.000
  740.  
  741. -- part contents for background part 8
  742. ----- text -----
  743. 1
  744. 1
  745. 1
  746. 1
  747. 1
  748. 1
  749. 1
  750. 1
  751. 1
  752. 1
  753. 7
  754. 7
  755. 1
  756.  
  757. -- part contents for background part 2
  758. ----- text -----
  759. Mon, Aug 28, 1989